home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / AESERVIC / MODSERVC.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-10-28  |  1.8 KB  |  40 lines
  1. Attribute VB_Name = "modService"
  2. Option Explicit
  3. '-------------------------------------------------------------------------
  4. 'The project is a default Service object provided with APE.
  5. 'It is loaded and called by the Worker.  There are
  6. 'configurations for this object exposed on the AEManager U/I.  All it does
  7. 'is resond to an Execute method.  In response to the data it receives, it
  8. 'may return data of different sizes are types and/or sleep or burn processor
  9. 'cycles for a certain amount of time.
  10. '-------------------------------------------------------------------------
  11.  
  12. 'Declares
  13. Public Declare Function GetTickCount Lib "kernel32" () As Long
  14. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  15.  
  16. 'General Service Constants
  17. Public Const glMAX_DURATION As Long = 60000             'The longest an Service is allowed to take
  18.  
  19. 'Service Error Constants
  20. Public Const giERROR_THRESHOLD As Long = 32000          'Any error above this number is application defined
  21. 'Also used to lookup error strings from the RES file
  22. 'The actual error number raised to the calling program
  23. 'is "cont + vbObjectError"
  24. Public Const giBAD_DATA As Long = 32766
  25. Public Const giBAD_DURATION As Long = 32765
  26. Public Const giBAD_DATA_TYPE As Long = 32764
  27.  
  28. 'Data Access constants
  29. Public Const gsDBName As String = "AEServic.mdb"
  30. Public Const gsFIND_CRITERIA As String = "OrderID=1"
  31. Public Const gsFIELD_TO_READ As String = "ProductName"
  32.  
  33. Public Const gsWRITE_QUERY As String = "UPDATE DISTINCTROW OrderDetails SET OrderDetails.Quantity = 100 WHERE (((OrderDetails.OrderID)=1));"
  34. Public Const gsREAD_QUERY As String = "SELECT DISTINCTROW OrderDetails.OrderID, Products.ProductName, OrderDetails.Quantity FROM OrderDetails INNER JOIN Products ON OrderDetails.ProductID = Products.ProductID;"
  35.  
  36. Sub Main()
  37.  
  38. End Sub
  39.  
  40.